10 POKE52,48:POKE56,48:CLR:DIMD$(24),PP(8,10),WS(8):D$(0)=""
20 FORX=1TO24:D$(X)=D$(X-1)+"":NEXT:GOTO430
30 PRINTD$(1)MID$(TI$,1,2)":"MID$(TI$,3,2)":"MID$(TI$,5,2):RETURN
40 GOSUB30:FB=PEEK(56320)AND16:IFFB=16THEN80
50 POKE53280,14:POKE53281,14
60 GOSUB30:FB=PEEK(56320)AND16:IFFB=0THEN60
70 POKE53280,0:POKE53281,0:GOTO40
80 JS=PEEK(56320)AND15:IFJS=11THENDI=-1:C=1:GOTO130
90 IFJS=7THENDI=1:C=3:GOTO130
100 C=2:IFJS=14THENDI=-40:GOTO130
110 IFJS=13THENDI=40:GOTO130
120 GOTO40
130 IFPEEK(OP+DI)=160THENPOKE54276,129:POKE54276,128:GOTO40
140 NP=OP+DI:TN=PEEK(NP):POKENP+54272,CC:POKEOP,32:POKENP,C:POKEOP+54272,0
150 OP=NP:IFTN=0THEN170
160 GOTO40
170 POKE54283,17:POKE54283,16:PR=PR-1:PRINTD$(1)TAB(38)PR:IFPR=0THEN190
180 GOTO40
190 TT$=TI$:FORDE=1TO1000:NEXT:RESTORE:FORX=1TO5:READHI,LO:POKE54287,HI
200 POKE54286,LO:POKE54290,17:FORDE=1TO90:NEXT:POKE54290,16:FORDE=1TO50:NEXT
210 NEXT
220 LE=LE+1:IFLE=9THEN350
230 PRINT"[147]":POKE53280,6:POKE53281,2:POKE646,1:POKE53272,(PEEK(53272)AND240)OR6
240 PRINTD$(12)TAB(11)"LEVEL"LE"IS NEXT...":FORDE=1TO1000:NEXT
250 ONLEGOSUB570,580,590,600,610,620,630,640:POKE646,MC:PRINT"[147]"
260 POKE53272,(PEEK(53272)AND240)OR12:POKE53280,0:POKE53281,0:X1=1104:X2=1143
270 S=1:GOSUB290:X1=1183:X2=2023:S=40:GOSUB290:X1=2022:X2=1984:S=-1:GOSUB290
280 X1=1944:X2=1144:S=-40:GOSUB290:GOTO300
290 FORX=X1TOX2STEPS:POKEX,160:POKEX+54272,15:NEXT:RETURN
300 RN=INT(RND(1)*8)+1:IFWS(RN)=1THEN300
310 WS(RN)=1:ONRNGOSUB650,740,760,810,830,890,960,1020
320 FORX=1TO10:POKEPP(RN,X),0:POKEPP(RN,X)+54272,PC:NEXT:OP=1945
330 POKEOP,2:POKEOP+54272,CC:POKE646,1:PR=10:PRINTD$(1)TAB(37)PR:TI$=TT$
340 GOTO40
350 FORDE=1TO1000:NEXT:PRINT"[147]":POKE53272,(PEEK(53272)AND240)OR4:POKE646,0
360 POKE53280,12:POKE53281,15:PRINTD$(9)TAB(15)"GAME OVER"
370 PRINTD$(12)TAB(9)"TIME THIS GAME--"MID$(TT$,1,2)":"MID$(TT$,3,2)":";
380 PRINTMID$(TT$,5,2):IFTT$<BT$THENBT$=TT$
390 PRINTTAB(14)"BEST TIME--"MID$(BT$,1,2)":"MID$(BT$,3,2)":"MID$(BT$,5,2)
400 PRINTD$(15)TAB(4)PA$:FORDE=1TO100:NEXT:FB=PEEK(56320)AND16:IFFB=0THEN420
410 PRINTD$(15)TAB(4)BL$:FORDE=1TO100:NEXT:GOTO400
420 TT$="000000":LE=0:FORX=1TO8:WS(X)=0:NEXT:GOTO220
430 FORX=54272TO54295:POKEX,0:NEXT:POKE54296,15:T1$="NOW YOU SEE IT"
440 T2$="              ":PA$="PRESS FIRE BUTTON TO PLAY AGAIN":BL$=""+PA$
450 BT$="235959":PRINT"[147]":POKE53280,2:POKE53281,2:POKE646,15:POKE54277,9
460 POKE54284,96:POKE54291,9:FORX=1TO11:RO=INT(RND(1)*24):CO=INT(RND(1)*25)
470 PRINTD$(RO)TAB(CO)T1$:READHI,LO:FORZ=54273TO54287STEP7:POKEZ,HI:POKEZ-1,LO
480 NEXT:POKE54276,33:POKE54283,33:POKE54290,17:FORDE=1TO90:NEXT:POKE54276,32
490 POKE54283,32:POKE54290,16:PRINTD$(RO)TAB(CO)T2$
500 NEXT:POKE646,7:PRINTD$(12)TAB(13)T1$:POKE54277,10:POKE54278,3:POKE54273,10
510 POKE54272,10:POKE54284,25:POKE54285,9:POKE54280,51:POKE54279,97
520 FORZ1=1TO8:FORZ2=1TO10:READPP(Z1,Z2):NEXT:NEXT:POKE56334,PEEK(56334)AND254
530 POKE1,PEEK(1)AND251:X1=384:X2=471:GOSUB560:X1=256:X2=263:GOSUB560:X1=1280
540 X2=1287:GOSUB560:POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1:FORX=0TO31
550 READD:POKE12288+X,D:NEXT:GOTO420
560 FORX=X1TOX2:POKE12288+X,PEEK(53248+X):NEXT:RETURN
570 CC=1:PC=7:MC=15:RETURN
580 CC=1:PC=7:MC=0:RETURN
590 CC=1:PC=0:MC=15:RETURN
600 CC=0:PC=7:MC=15:RETURN
610 CC=1:PC=0:MC=0:RETURN
620 CC=0:PC=0:MC=15:RETURN
630 CC=0:PC=7:MC=0:RETURN
640 CC=0:PC=0:MC=0:RETURN
650 PRINTD$(4);:FORX=1TO19:PRINT""SPC(2)" "SPC(34)" ":NEXT:PRINTD$(6);
660 FORX=1TO15:PRINT""SPC(4)" "SPC(30)" ":NEXT:PRINTD$(8);:FORX=1TO11
670 PRINT""SPC(6)" "SPC(26)" ":NEXT:PRINTD$(10);:FORX=1TO7
680 PRINT""SPC(8)" "SPC(22)" ":NEXT:PRINTD$(12);:FORX=1TO3
690 PRINT""SPC(10)" "SPC(18)" ":NEXT:PRINTD$(10);:FORX=1TO7
700 PRINT""SPC(12)" "SPC(14)" ":NEXT:PRINTD$(8);:FORX=1TO11
710 PRINT""SPC(14)" "SPC(10)" ":NEXT:PRINTD$(6);:FORX=1TO15
720 PRINT""SPC(16)" "SPC(6)" ":NEXT:PRINTD$(4);:FORX=1TO19
730 PRINTSPC(18)"    ":NEXT:RETURN
740 FORX=4TO22STEP2:PRINTD$(X)SPC(2)"                                    "
750 NEXT:FORX=5TO21STEP2:PRINTD$(X)SPC(19)"  ":NEXT:RETURN
760 PRINTD$(7)SPC(10)"                ":FORX=1TO11:PRINTSPC(17)"  "
770 NEXT:PRINTSPC(10)"                ":PRINTD$(8);:FORX=1TO5
780 PRINTSPC(10)" "SPC(18)" ":NEXT:PRINTD$(14);:FORX=1TO5
790 PRINTSPC(10)" "SPC(18)" ":NEXT:PRINTD$(12)SPC(18)"  "
800 PRINTD$(14)SPC(18)"  ":RETURN
810 FORX=4TO22:PRINTD$(X)SPC(19)" ":NEXT
820 PRINTD$(13)"                                    ":RETURN
830 PRINTD$(4)SPC(5)"            ":FORX=5TO10
840 PRINTD$(X)SPC(5)"        ":NEXT:FORX=16TO21
850 PRINTD$(X)SPC(5)"        ":NEXT
860 PRINTSPC(5)"            ":FORX=7TO19
870 PRINTD$(X)SPC(10)"      ":NEXT
880 PRINTD$(13)SPC(5)"                              ":RETURN
890 PRINTD$(6)SPC(4)"      "SPC(20)"      ":FORX=1TO13
900 PRINTSPC(4)" "SPC(30)" ":NEXT:PRINTSPC(4)"      "SPC(20)"      "
910 PRINTD$(7)SPC(11)"                  "
920 PRINTD$(19)SPC(11)"                  ":FORX=8TO18:PRINTD$(X)SPC(19)"  "
930 NEXT:PRINTD$(8)SPC(6)"     "SPC(18)"     "
940 PRINTD$(18)SPC(6)"     "SPC(18)"     ":FORX=10TO16
950 PRINTD$(X)SPC(10)" "SPC(18)" ":NEXT:RETURN
960 FORX=10TO16STEP3:PRINTD$(X)SPC(15)"          ":NEXT:FORX=3TO9
970 PRINTD$(X)SPC(19)"  ":NEXT:FORX=17TO23:PRINTD$(X)SPC(19)"  ":NEXT
980 PRINTD$(6)SPC(10)"                    "
990 PRINTD$(20)SPC(10)"                    ":FORX=7TO12
1000 PRINTD$(X)SPC(10)" "SPC(18)" ":NEXT:FORX=14TO19
1010 PRINTD$(X)SPC(10)" "SPC(18)" ":NEXT:RETURN
1020 FORX=4TO20STEP4:PRINTD$(X)SPC(10)"                  "
1030 PRINTSPC(11)"            ":PRINTSPC(10)"                  "
1040 NEXT:RETURN
1050 DATA 34,75,40,200,34,75,40,200,45,198,54,111,54,111,45,198,40,200,45,198
1060 DATA 45,198,1474,1493,1634,1653,1561,1566,1547,1580,1551,1576,1242,1245
1070 DATA 1882,1885,1553,1574,1386,1421,1706,1741,1355,1360,1367,1372,1755,1760
1080 DATA 1767,1772,1562,1565,1522,1524,1602,1604,1354,1373,1754,1773,1545,1582
1090 DATA 1230,1239,1248,1257,1870,1879,1888,1897,1548,1579,1547,1549,1553,1555
1100 DATA 1562,1565,1572,1574,1578,1580,1545,1582,1202,1205,1360,1367,1760,1767
1110 DATA 1922,1925,1234,1253,1874,1893,1399,1408,1719,1728,1561,1566,0,28,54
1120 DATA 34,54,28,0,0,12,30,12,124,12,20,36,108,28,54,28,99,28,20,54,0,48,120
1130 DATA 48,62,48,40,36,54